<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0</name>
<id>-1</id>
<cardCount>5</cardCount>
<cardID>19674</cardID>
<listID>2528</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackpush cardif the number of this cd is 1 then hide cd fld datahide message boxshow menuBarplay darnpass openStackend openStackfunction frac mreturn m - trunc(m)end fracfunction sortl arg-- ascending sortput number of items of arg into nrepeat with j=1 to n-1put true into donerepeat with i=j to nif item i of arg < item j of arg thenput false into doneset cursor to busyput item i of arg into zput item j of arg into item i of argput z into item j of argend ifend repeatif done then exit repeatend repeatreturn argend sortlfunction begNumreturn number of first card of bg "Movies"end begNumon closeFieldif number of this cd > 5 then calcend closeFieldon searchglobal ittif itt is not empty then go next cardask "Search for character string:" with ittif it is not empty thenfind chars it in fld Moviesif the result is "not found" thenplay clang tempo 250 c4 d3end ifend ifput it into ittend searchon calcput empty into zput (last line of field "Counter"+fld strip)/1000 into xif hilite of button "VHS" thenput "VHS" into initelseif hilite of button "Beta"then put "Beta" into initend ifput trunc((line 1 of field 3 of card init) + x * ((line 2 of field 3¬of card init) + x * line 3 of field 3 of card init))/60 into ¬timeLeftput round(60 * frac(timeLeft)) into minutesif minutes <10 then put "0" into zput trunc(timeLeft) & ":" & z & minutes into field "Time Left"end calcon goTapeglobal tapeif tape is empty thenask "Go to videotape #" with "1"put it into tapeend ifif tape is empty then exit GoTapeput false into foundif (last char of tape) is "," then delete last char of tapego cd "x"&tapeif the result is "No such card" then play boingend goTapeon NuCardglobal numgo last cdput field "num" into numDoMenu "Copy Card"DoMenu "Paste Card"repeat with i=1 to (the number of flds) -1if fld i is not empty thenselect text of fld idoMenu "Clear Text"end ifend repeatAnswer "Please select a tape format..." with ¬"VHS" or "Beta-500" or "Beta"if it is "Beta" thenset hilite of button "Beta" to trueset hilite of button "VHS" to falseelseset hilite of button "VHS" to trueset hilite of button "Beta" to falseend ifcalcend NuCardon searchTimeglobal start,num,i,she,buffer,dest,listrepeat with i=start to numset cursor to busyput field "Time Left" of card i into timeif the number of chars of time = 5 then exit repeatput 60*char 1 of time + (char 3 to 4 of time) into time2if time2 > she thenif buffer≠0 thenput time2-she+.1 into bufferput "," after listif buffer <100 then put "0" after listif buffer <10 then put "0" after listput trunc(buffer) &"." after listif i<10 then put "0" after listput i after listelseput "," & i after listend ifexit repeatend ifend repeatif buffer=0 and i=num thenplay boinggo recent cardput 1 into iend ifend searchTimeon FindTimeglobal start,num,i,buffer,she,dest,listput 0 into bufferput 0 into destget 0push cardput begNum() into listput begnum() into startput 240 into bestput the number of cards into numrepeat until it>0Ask "How many minutes do you seek (1 to exit)?"end repeatput it into sheif she=1 then exit FindTimeAnswer "Fill tape to end?" with "No" or "Yes"if it is "Yes" then put -she into sheif she<0 thenput abs(she) into sheset cursor to 4put begnum() into startput 239 into buffersearchTimerepeat until i=numif buffer<best thenput i into destput buffer into bestgo cd destend ifput i+1 into startsearchTimeend repeatdelete item 1 of listput number of items of list into nlistrepeat with j=1 to nlistif number of
 (January 1993).iso/Files/Movie/Q-Z/VCR 2.0.cpt/VCR 2.0/PATs.png){kind=link}